home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 076-100 / scopedisk99 / sidced / u.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-19  |  280b  |  9 lines
  1. /* tell Uedit to edit a file */
  2. if find(show('P'),'URexx') == 0
  3. then address command 'execute rexx:ueload.rexx'
  4. parse arg x
  5. y = pragma('d')
  6. if right(y,1) == ':'
  7. then address 'URexx' 'f:'||y||strip(translate(x,'','"'))
  8. else address 'URexx' 'f:'||y||'/'||strip(translate(x,'','"'))
  9.